home *** CD-ROM | disk | FTP | other *** search
/ Virtual Vibrations / Virtual Vibrations.iso / mac / Virtual Vibrations / STAR.DXR / 00002.ls < prev    next >
Encoding:
Text File  |  1994-10-28  |  3.6 KB  |  97 lines
  1. on startMovie
  2.   global gmovie, gorderlist, pricelist, flag, hiliteline, stax, basetxt, basetitle, currentphoto, currenttxt, currenttitle, currentpalette, currentselection, currentquant, currentname, firstphoto, subtot, subtotal, temprect, shippref, titlecount, querymovie, currentfield, position, disc, ship, fixpal
  3.   set fixpal to FixPalette(mnew, the stageLeft, the stageTop, the stageRight, the stageTop)
  4.   set the stageColor to 255
  5.   set the soundEnabled to 1
  6.   set the soundLevel to 4
  7.   set the floatPrecision to 2
  8.   puppetSprite(25, 0)
  9.   puppetSprite(26, 0)
  10.   puppetSprite(27, 0)
  11.   puppetSprite(28, 0)
  12.   puppetSprite(29, 0)
  13.   puppetSprite(48, 0)
  14.   puppetPalette(0)
  15.   set gorderlist to [:]
  16.   set pricelist to []
  17.   set basecover to the number of cast "base cover"
  18.   set basetxt to the number of cast "base txt"
  19.   set basetitle to the number of cast "base title"
  20.   set the text of cast "orderlist" to EMPTY
  21.   set the text of cast "prodnos" to EMPTY
  22.   set the text of cast "prices" to EMPTY
  23.   set the text of cast "prices2" to EMPTY
  24.   set the text of cast "subtotal" to EMPTY
  25.   set the text of cast "total" to EMPTY
  26.   set the text of cast "discount" to EMPTY
  27.   set currentselection to EMPTY
  28.   set currenttxt to EMPTY
  29.   set currenttitle to EMPTY
  30.   set hiliteline to 1
  31.   set titlecount to 26
  32.   set gmovie to the number of cast "white box"
  33.   set subtot to 0
  34.   set disc to 0
  35.   set ship to 0
  36.   set stax to 0
  37.   set subtotal to 0
  38.   set stax to 0.06499999999999999
  39.   set shippref to 1
  40.   set the text of cast "shipping" to "$4.50"
  41.   set the hilite of cast "ground" to 1
  42.   set position to 0
  43.   append(pricelist, "955, XXX, W/M, 29.88, Betrayal")
  44.   append(pricelist, "975, XXX, W/M, 29.88, Beverly Hills 90269")
  45.   append(pricelist, "956, XXX, W  , 29.88, Cat & Mouse - The Movie")
  46.   append(pricelist, "976, XXX, W/M, 29.88, The Other Side of Chelsea")
  47.   append(pricelist, "977, XXX, W/M, 29.88, Deception")
  48.   append(pricelist, "979, XXX, W/M, 29.88, Fisherman's Wife")
  49.   append(pricelist, "980, XXX, W/M, 29.88, Hidden Agenda")
  50.   append(pricelist, "986, XXX, W/M, 39.88, The Adventures of Mikki Finn")
  51.   append(pricelist, "978, XXX, W/M, 29.88, Murphie's Brown")
  52.   append(pricelist, "987, XXX, W/M, 29.88, Sleepwalker")
  53.   append(pricelist, "954, XXX, W/M, 29.88, Wicked - The Movie")
  54.   append(pricelist, "988, XXX, W/M, 29.88, Wire Desire")
  55.   append(pricelist, "971, XXX, W  , 39.88, After Midnight Screensaver")
  56.   append(pricelist, "957,  X , W  , 39.88, Paradise Club Interactive")
  57.   append(pricelist, "989,  R , W  , 29.88, Screen Candy Screensaver")
  58.   append(pricelist, "990,  R , W/M, 69.95, Spy Club")
  59.   append(pricelist, "993,  R , W/M, 19.95, Cyber Peep")
  60.   append(pricelist, "991,  R , W/M, 29.95, Drive In")
  61.   append(pricelist, "992,  R , W/M, 29.95, Divorce Law")
  62.   append(pricelist, "962, XXX, W/M, 29.88, Cat & Mouse - Photo CD")
  63.   append(pricelist, "966, XXX, W/M, 29.88, Double Play I")
  64.   append(pricelist, "967, XXX, W/M, 29.88, Double Play II")
  65.   append(pricelist, "965,  X , W/M, 29.88, Hooter Heaven")
  66.   append(pricelist, "952,  XX, W/M, 49.88, Wicked - Photo CD (w/software)")
  67.   append(pricelist, "952,  XX, W/M, 29.88, Wicked - Photo CD (no software)")
  68.   append(pricelist, "961, XXX, W/M, 29.88, The Mark of Zara")
  69. end
  70.  
  71. on BUTTONDOWN
  72.   puppetSound("click")
  73.   set variable to the castNum of sprite the clickOn
  74.   set variable to variable + 1
  75.   set the castNum of sprite the clickOn to variable
  76.   updateStage()
  77.   repeat while the stillDown
  78.   end repeat
  79.   set variable to variable - 1
  80.   set the castNum of sprite the clickOn to variable
  81.   updateStage()
  82. end
  83.  
  84. on patchpal
  85.   global fixpal
  86.   fixpal(mPatchIt)
  87. end
  88.  
  89. on stopMovie
  90.   global fixpal
  91.   if the machineType = 256 then
  92.     nothing()
  93.   else
  94.     fixpal(mdispose)
  95.   end if
  96. end
  97.